home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / CAPSLOCK.PAS < prev    next >
Pascal/Delphi Source File  |  1988-12-15  |  362b  |  14 lines
  1. {<<<< Capslock >>>>}
  2. { From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
  3. { Scott, Foresman & Co. 1988  ISBN 0-673-38355-5 }
  4. { Described in section  9.6 -- Last mod 12/13/88 }
  5.  
  6. FUNCTION Capslock(Ch : Char) : Char;
  7.  
  8. CONST
  9.   Lowercase : SET OF Char = ['a'..'z'];
  10.  
  11. BEGIN
  12.   IF Ch IN Lowercase THEN CapsLock := Chr(Ord(Ch)-32)
  13.     ELSE CapsLock := Ch;
  14. END